home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].7z / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].adf / piarc.lzh.parta / LToR.rxwp < prev    next >
Text File  |  1994-03-17  |  648b  |  28 lines
  1. /* LToR.rxwp - rexx script to fill wipe buffer */
  2.  
  3. parse arg cframe mframe
  4.  
  5. options;
  6. address;
  7.  
  8.   if mframe = 0 then do
  9.       call open(fhandle,'ram:IM_WIPE.tmp2','write');      /* open the file */
  10.       junk = writeln(fhandle, 0);
  11.       junk = writeln(fhandle, 0);
  12.       junk = writeln(fhandle, 1);
  13.       junk = writeln(fhandle, 0);
  14.       junk = writeln(fhandle, 0);
  15.       junk = writeln(fhandle, 1);
  16.       call close(fhandle);                     /* close the file    */
  17.     end;
  18.   else do
  19.     fp = cframe / mframe;
  20.     fp1 = -(1 - fp);
  21.     address("IM_WIPER");
  22.     'displace '||fp1||',0'
  23.     'box 0,0,'||fp||',1'
  24.     'close'
  25.     end;
  26.  
  27.   exit 0;
  28.